home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_examples.exe / %MAINDIR% / Examples / NonShellNodes / Delphi / FMain.dfm / FMain.txt
Encoding:
Text File  |  2001-08-31  |  2.6 KB  |  120 lines
  1. object FrmMain: TFrmMain
  2.   Left = 314
  3.   Top = 213
  4.   AutoScroll = False
  5.   Caption = 'Non-Shell Node Example'
  6.   ClientHeight = 253
  7.   ClientWidth = 400
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   OnCreate = FormCreate
  14.   OnDestroy = FormDestroy
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object PTSplitter1: TPTSplitter
  18.     Left = 0
  19.     Top = 0
  20.     Width = 400
  21.     Height = 208
  22.     Align = alClient
  23.     Position = 176
  24.     SplitterWidth = 4
  25.     TabOrder = 0
  26.     object PTSplitter1_pane1: TPTPane
  27.       Left = 0
  28.       Top = 0
  29.       Width = 176
  30.       Height = 208
  31.       Index = 0
  32.       object PTShellTree1: TPTShellTree
  33.         Left = 0
  34.         Top = 0
  35.         Width = 172
  36.         Height = 204
  37.         ShellList = PTShellList1
  38.         BorderStyle = bsNone
  39.         ShowRoot = False
  40.         DragMode = dmAutomatic
  41.         Indent = 19
  42.         OnChange = PTShellTree1Change
  43.         Align = alClient
  44.         ParentColor = False
  45.         TabOrder = 0
  46.       end
  47.     end
  48.     object PTSplitter1_pane2: TPTPane
  49.       Left = 180
  50.       Top = 0
  51.       Width = 220
  52.       Height = 208
  53.       Index = 1
  54.       object PTFrame1: TPTFrame
  55.         Left = 0
  56.         Top = 0
  57.         Width = 216
  58.         Height = 204
  59.         FrameStyle = ptfsNone
  60.         Align = alClient
  61.         Caption = 'Non shell node.'
  62.         Color = clBtnFace
  63.         ParentColor = False
  64.       end
  65.       object PTShellList1: TPTShellList
  66.         Left = 0
  67.         Top = 0
  68.         Width = 216
  69.         Height = 204
  70.         OnAddItem = PTShellList1AddItem
  71.         OnDblClickOpen = PTShellList1DblClickOpen
  72.         OnFillComplete = PTShellList1FillComplete
  73.         Align = alClient
  74.         BorderStyle = bsNone
  75.         ReadOnly = False
  76.         TabOrder = 0
  77.         ViewStyle = vsList
  78.       end
  79.     end
  80.   end
  81.   object Memo1: TMemo
  82.     Left = 0
  83.     Top = 208
  84.     Width = 400
  85.     Height = 45
  86.     Align = alBottom
  87.     BorderStyle = bsNone
  88.     Color = clBtnFace
  89.     Lines.Strings = (
  90.       ''
  91.       
  92.         'This example shows how non-shell nodes can be added to a tree. N' +
  93.         'ote the two '
  94.       
  95.         'non-shell nodes in the tree view and the single non-shell item i' +
  96.         'n the list view.')
  97.     ReadOnly = True
  98.     TabOrder = 1
  99.   end
  100.   object MainMenu1: TMainMenu
  101.     Left = 338
  102.     Top = 44
  103.     object File1: TMenuItem
  104.       Caption = '&File'
  105.       object Exit1: TMenuItem
  106.         Caption = 'E&xit'
  107.         ShortCut = 32856
  108.         OnClick = Exit1Click
  109.       end
  110.     end
  111.     object Test1: TMenuItem
  112.       Caption = '&Test'
  113.       object Registercustomicon1: TMenuItem
  114.         Caption = '&Register custom icon'
  115.         OnClick = Registercustomicon1Click
  116.       end
  117.     end
  118.   end
  119. end
  120.